﻿namespace Sobachka

module Tests =

    open System.Diagnostics

    let sp = StreamProcessor.id () : StreamProcessor<int, int>



    let list = [1..1000000]

    let stopWatch = Stopwatch.StartNew()

    let test = StreamProcessor.applyToList sp list 

    stopWatch.Stop()

    printfn "%d" test.Length
    printfn "%O" test

    printfn "elapsed: %f" stopWatch.Elapsed.TotalMilliseconds